home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 061-070 / amok65 / makecpicscreen / cpicscreen.def < prev    next >
Text File  |  1993-11-04  |  2KB  |  51 lines
  1. (* --------------------------------------------------------------------------
  2.  
  3. :Program.    CPicScreen.mod
  4. :Contents.   Procedure to generate Screen from Inline- Datas
  5. :Author.     Steffen Köhler
  6. :Address.    Breite Str. 1 2880 Brake, Germany
  7. :Phone.      04401/70164
  8. :Copyright.  This Routine based on the Shareware-Routines by
  9.              Thomas Zipproth
  10.              Dr. Jochner Weg 10, 8948 Mindelheim, Germany
  11.              08261/4838
  12.              (see the CPic.doc on AMOK#42 for more Informations)
  13. :Language.   Modula2 + Assembler
  14. :Translator. M2-Amiga A+L V3.32d
  15. :History.    V1.0 29-Dec-90
  16.  
  17. -------------------------------------------------------------------------- *)
  18.  
  19. DEFINITION MODULE CPicScreen;
  20.  
  21. FROM Graphics  IMPORT ViewPortPtr,ViewModeSet,BitMapPtr;
  22. FROM Intuition IMPORT ScreenPtr;
  23. FROM SYSTEM    IMPORT ADDRESS;
  24.  
  25. TYPE CPicInfo = RECORD
  26.   Ident  : LONGINT;
  27.   Width  : INTEGER;
  28.   Height : INTEGER;
  29.   PicX0  : INTEGER;
  30.   PicY0  : INTEGER;
  31.   PicX   : INTEGER;
  32.   PicY   : INTEGER;
  33.   Depth  : INTEGER;
  34.   Planes : ARRAY[0..5] OF LONGINT;
  35.   Length : ARRAY[0..5] OF LONGINT;
  36.   Mode   : ViewModeSet;
  37.   Colors : ARRAY[0..31] OF INTEGER;
  38. END;
  39.  
  40. VAR ci  : CPicInfo;
  41.     Cle : INTEGER;  (*  CPicLoadError *)
  42.  
  43. PROCEDURE MakeCPicScreen( CpInlinePtr: ADDRESS; TitlePtr:ADDRESS;
  44.                          VAR sp : ScreenPtr;
  45.                          x0,y0 : INTEGER; Front : BOOLEAN) : BOOLEAN;
  46.  
  47. PROCEDURE Refresh(CpInlinePtr: ADDRESS; VAR sp: ScreenPtr;
  48.                         VAR ci : CPicInfo) : BOOLEAN;
  49.  
  50. END CPicScreen.
  51.